home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / complib / minv22.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  269 b   |  19 lines
  1. /*
  2. ### compute an inverse matrix of a 2 x 2 matrix ###
  3. */
  4. minv22(q,qn)
  5. double *q,*qn;
  6. {
  7. double det;
  8.  
  9. det = *qn * *(qn+3) - *(qn+2) * *(qn+1);
  10. if(det == 0) {
  11.     return(-1);
  12. }
  13. *q = *(qn+3)/det;
  14. *(q+1) = - *(qn+2)/det;
  15. *(q+2) = - *(qn+1)/det;
  16. *(q+3) = *qn/det;
  17. return(0);
  18. }
  19.